home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / utility / 95 / pascal / fmttst.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-01-15  |  778 b   |  42 lines
  1. program fmttst;
  2.  
  3. CONST
  4.  
  5. {$I work\fmtconst.pas}
  6.  
  7. type
  8. {$I work\fmttype.pas}
  9.  
  10. var
  11.    foo : string;
  12.    i : integer;
  13.  
  14. {$I work\fmtsubs.pas}
  15.  
  16. begin
  17.  
  18.    writeln( 'NumDriv is ', NumDriv );
  19.  
  20.    if WrtVer( RetStat ) then
  21.       writeln( 'Write verify is on ' )
  22.    else
  23.       writeln( 'Write verify is off ' );
  24.  
  25.    for i := 0 to 15 do
  26.       if IsDrive( i ) then
  27.          writeln( 'Drive ', chr( i + 65 ), ' exists!' );
  28.  
  29.    writeln;
  30.    writeln( '*** TYPE "GO" to format drive 0' );
  31.    readln( foo );
  32.    if foo = 'GO' then
  33.       begin
  34.          writeln( 'formatting drive 0 as double sided 80 track ' );
  35.         if FmtDsk( DriveA, DblSid80 ) then
  36.            writeln( 'Format successful' )
  37.         else
  38.            writeln( 'No go..' )
  39.       end;
  40. end.
  41.  
  42.